10 PRINT"[147]";:GOSUB59000
20 ST$="[208]ROGRAMM '[205]ENUES IN [194][193][211][201][195]'. [214]IEL [211]PASS! [197]URE [199][207]64! --> [212]ASTE DRUECKEN "
30 GOSUB1700:LG=1:GOSUB1400
40 ST$="--> [204]INIE ZIEHEN. [205]IT WELCHEM [218]EICHEN?  (X=[197]NDE) ":GOSUB1700:LG=1:GOSUB1400
50 ZL=10:SP=0:GOSUB1200:PRINTL$:SP=9:GOSUB1200:LG=21:GOSUB1800
70 IFEN$<>"X"THEN40
80 ST$="[197]NDE DES [208]ROGRAMMS.":GOSUB1700
900 ZL=0:GOSUB1200
999 END
1100 GOSUB1200:PRINT"[176]";:FORI9=1TOBR:PRINT"[192]";:NEXT:PRINT"[174]"
1110 FORI9=1TOHO:PRINTTAB(SP)"[221]"SPC(BR)"[221]":NEXT
1120 PRINTTAB(SP)"[173]";:FORI9=1TOBR:PRINT"[192]";:NEXT:PRINT"[189]";:RETURN
1200 POKE214,ZL:POKE211,SP:SYS58640:RETURN
1300 GOSUB1200:FORI9=1TOHO+2:PRINTTAB(SP)LEFT$(L$,BR+2);:IFI9<HO+2THENPRINT
1310 NEXT:RETURN
1400 EN$="":I9=0
1405 PRINT"[164][157]";
1410 GETX9$:IFX9$=""THEN1410
1420 IFX9$=CHR$(13)THEN1480
1430 IFX9$=CHR$(20)ANDI9>0THENPRINT"[157][157][164][157]";:I9=I9-1:EN$=LEFT$(EN$,I9)
1440 IFX9$<" "ORX9$>"[218]"THEN1410
1450 IFX9$>"_"ANDX9$<"[193]"THEN1410
1460 IFX9$=CHR$(34)THENPRINTCHR$(148)X9$CHR$(20);
1470 EN$=EN$+X9$:PRINTX9$;:I9=I9+1:IFLG>I9THEN1405
1480 PRINT" ";:RETURN
1700 ZL=23:SP=0:GOSUB1200:PRINTL$:PRINTL$;:ZL=ZL-1:GOSUB1200:EN$="[164]":LG=40:GOSUB1800
1710 ZL=ZL+1:GOSUB1200:PRINTST$;:ST$="":EN$="":RETURN
1800 FORI9=1TOLG:PRINTEN$;:NEXT:RETURN
59000 I9=0:I8=0:I7=0:I6=0:ZL=0:SP=0:BR=0:HO=0:X9$="":EN$="":ST$=""
59010 READ MN,SM,MB:DIM MN$(MN,SM),MN%(MN)
59020 FORI9=1TOMN:READMN$(I9,0):NEXT
59025 FORI8=1TOMN:READMN%(I8):SM=MN%(I8):FORI9=1TOSM:READMN$(I8,I9):NEXT:NEXT
59080 L$="                                       ":LG=1
59090 FC=11:FB=15:FR=12:POKE53281,FB:POKE53280,FR:POKE646,FC
59095 PRINT""L$" ";:FORI9=1TOMN:SP=(I9-1)*MB:GOSUB1200:PRINTMN$(I9,0);:NEXT:PRINT"[146]";
59099 RETURN
60000 DATA 4,6,10:REM ANZAHL MENUES,MAX. ANZAHL SUBMENUES, MENUEBREITE
60010 DATA "[196]ATEI","[194]EARB.","[197]XTRAS","[200]ILFE"
60020 DATA 5,"[206]EU","[207]EFFNEN","[211]CHLIESSEN","[211]PEICHERN","[194]EENDEN"
60030 DATA 4,"[210]UECKGAENG","[193]USSCHNEID","[203]OPIEREN","[197]INFUEGEN"
60040 DATA 2,"[201]MPORT","[197]XPORT"
60050 DATA 3,"[213]EBER...","[201]NDEX","[193]LLGEMEIN"